home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / pcpil / restart.pim < prev    next >
Text File  |  1979-12-31  |  2KB  |  84 lines
  1.  
  2. R: * * * * * * * * * *  RESTART MACRO  * * * * * * * * * *
  3.  
  4. R: Student restart handler
  5. R: Information kept in a file "nnn.REC"       
  6. R: One record per student.
  7. R: Record layout: REC$(1,10)        = student id number
  8. R:                REC$(11,30)       = student name
  9. R:                REC$(41,10)       = restart label
  10. R:                REC$(51,udatz)    = user data area
  11. R:                REC$(51+udatz,2)  = RETURN and LINE-FEED characters
  12.  
  13. R: Open restart file
  14. D:RESF$(16)
  15. ?REM Input name to use for student file, or push ENTER to use RESTART.
  16. C:RESF$=RSP(CAP("?F"))
  17. C(LEN(RESF$)=0):RESF$="RESTART"   
  18. X:"FX:"!!RESF$
  19.  
  20. R: Next variable UDATZ is size of user data section of restart record
  21. ?REM Input length of user-data section of restart record (0 to 500).
  22. C:UDATZ="?U"
  23. C(Udatz<1):udatz=1
  24. C(Udatz>500):udatz=500
  25.  
  26. R: Next variable, RECZ, is the length of each record.
  27. C: RECZ = 52+UDATZ
  28. D: ID$(10), REC$(RECZ), UDAT$(UDATZ), RESL$(6), NAME$(30)
  29.  
  30. T:Type your ID number and push ENTER.
  31. T:(Or to stop now, just push ENTER.) 
  32. A:$ID$
  33. C:ID$=RSP(CAP(ID$))
  34. TS(LEN(ID$)=0):F7;B0;M2
  35. TC:Program stopped.
  36. EC:
  37.  
  38. R: See if student already on file.
  39. C: RECNO = 0
  40. *RESA
  41. FI:RECNO*RECZ,REC$
  42. J(ASC(REC$) = 255):RESB
  43. J(ID$ = REC$(1,10)):RESC
  44. C:RECNO = RECNO+1
  45. J:RESA
  46.  
  47. *RESB 
  48. T:Your ID number is not on file.
  49. T:Type your name and push ENTER.
  50. T:(Or to stop now, just push ENTER.) 
  51. A:$NAME$
  52. TS(LEN(NAME$)=0):F7;B0;M2
  53. TC:Program stopped.
  54. EC:
  55. C:REC$(1,10)=ID$
  56. C:REC$(11,30)=NAME$
  57. C:UDAT$=SPC(UDATZ)
  58. C:RESL$="RESGO"
  59. U:CKPNT
  60.  
  61. *RESC
  62. C:ID$=REC$(1,10)
  63. C:NAME$=REC$(11,30)
  64. C:RESL$=REC$(41,10)
  65. C:UDAT$=REC$(51,UDATZ)
  66. T:
  67. T:Welcome #(TSP(NAME$)).
  68. W:40
  69. X:"J:" !! RESL$
  70.  
  71. R: this subroutine called by each CHECKPT macro.
  72. *CKPNT
  73. C:REC$(41,10)=RESL$
  74. C:REC$(51,UDATZ)=UDAT$
  75. C:REC$(RECZ-1,2)=CHR(13)!!CHR(10)
  76. X:"FX:"!!RESF$
  77. FO:RECNO*RECZ,REC$
  78. E:
  79. *RESGO
  80.  
  81. R: * * * * * * * * * *  END OF RESTART MACRO  * * * * * * * * * *
  82.  
  83.  
  84.